From aa60a2364e9c1ae511b7f43714c5996a6673e456 Mon Sep 17 00:00:00 2001 From: justbur Date: Mon, 16 Nov 2015 22:31:10 -0500 Subject: [PATCH] Make special-key matching case sensitive --- which-key.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index 175832175f6..af8e88edd69 100644 --- a/which-key.el +++ b/which-key.el @@ -1117,7 +1117,8 @@ If KEY contains any \"special keys\" defined in (let ((key-w-face (propertize key 'face 'which-key-key-face)) (regexp (concat "\\(" (mapconcat 'identity which-key-special-keys - "\\|") "\\)"))) + "\\|") "\\)")) + case-fold-search) (save-match-data (if (and which-key-special-keys (string-match regexp key)) -- 2.30.2